# Usage: sailing.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	outputFile sailing.ps 
	images {
		sailing {sailing05.bmp {trace 1 1}}
	}
	locationTypes {
		ShapePoints {number 1 name 2 draw 1}
	}
	locations {
		sail {{sailing red} ShapePoints x {Blue Red $DrawShape} {
			62 m 60 l 58 l 38 l 30 l 31 l 32 l 33 l 48 l 51 l 
			52 l 49 l 40 l 29 l 16 l 
			14 {l 0 -1} 9 l 8 l 3 l 4 l 1 l 1 {l 1} 2 l 5 {l -1} 6 l 11 l 10 l 12 l 
			13 l 19 {l .75 -1.25} 19 {l -1 -1} 19 {l -1 5} 45 l 54 l 53 l 
			55 l 56 l 41 l  
			42 l 35 l 34 l 28 l 19 l 17 l 7 {l -1} 7 l 17 {l 1} 20 l 21 {l 0 1} 23 {l 0.25 1} 22 {l 1 1} 37 {l 1} 36 l 43 l 
			44 l 24 l 25 l 15 l 18 l 26 l 27 l 39 l 47 l 46 l
			50 l 57 l 59 l 61 l 63 p 
		}}
	}
	$MapDrawingScale .1
	drawFrame 0 arrows 0
	backgroundColor {}
}